home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / amos_turbo / demos / fast_scroll.amos / fast_scroll.amosSourceCode
Encoding:
AMOS Source Code  |  1980-08-18  |  1.6 KB  |  64 lines
  1. Screen Open 1,320,256,8,Lowres
  2.  Extension_12_03A6 -1
  3. For I=1 To 25
  4.    Print "jkdshfkjdsahflkjahdslkhagsdjhsjhhdhsksk"
  5. Next 
  6. ' DISABLE MULTITASKING !!! FOR BETTER SPEED AND SYNCHRONISATION !!!
  7.  Extension_12_0016 
  8. Wait 50
  9. SHIFT=1
  10. BLITS=10
  11. '  DEFINE AND STORE ALL THE BLITS
  12. For I=1 To BLITS
  13. '  USE A POSITIVE SHIFT FOR SHIFTING TO THE RIGHT !!!
  14.     Extension_12_031E 1,I,0,Y To 320,Y+20,-SHIFT
  15.    Add Y,20
  16. Next 
  17. ' THIS IS ONLY DONE TO SHOW THAT IT WORKS...I COULD HAVE CHANGED THE 
  18. ' SHIFT VALUE WHEN DEFINING THE BLITS... 
  19. For I=1 To 10
  20.      Extension_12_0366 I,I
  21. Next 
  22. ' OK...HERE COMES THE SPEED !!! JUST FEED THE BLITTER WITH THE PRE-
  23. ' CALCULATED VALUES !!!
  24. For I=1 To 100
  25.     Extension_12_00A6 255
  26.     Extension_12_0340 1 To BLITS
  27. Next 
  28. ' DON'T FORGET TO FREE THE MEMORY USED BY THE BLIT DEFINITIONS !!! 
  29. For I=1 To BLITS
  30.     Extension_12_0354 I
  31. Next 
  32.  Extension_12_0006 
  33. Print "PRESS LEFT MOUSE BUTTON"
  34. Repeat 
  35. Until Extension_12_03B8 
  36. ' OK, NOW DO THE SAME THING BUT WITH AMOS-ORIGINAL INSTRUCTIONS !!!
  37.  Extension_12_03A6 -1
  38. Locate 0,0
  39.  Extension_12_0016 
  40. Wait 50
  41. Y=0
  42. For I=1 To BLITS
  43. '  USE A POSITIVE SHIFT FOR SHIFTING TO THE RIGHT !!!
  44.    Def Scroll I,0,Y To 320,Y+20,-SHIFT,0
  45.    Add Y,20
  46. ' THE SHIFT COUNT IS INCREASED HERE BECAUSE YOU CAN'T ACCESS THE dx VALUE
  47. ' DIRECTLY...
  48.    Inc SHIFT
  49. Next 
  50. For I=1 To 25
  51.    Print "jkdshfkjdsahflkjahdslkhagsdjhsjhhdhsksk"
  52. Next 
  53. Draw 0,200 To 300,200
  54. For I=1 To 100
  55.     Extension_12_00A6 255
  56.    For J=1 To BLITS
  57.       Scroll J
  58.    Next 
  59. Next 
  60. ' DON't FORGET TO ENABLE MULTITASKING AFTER DISABLING IT !!! 
  61.  Extension_12_0006 
  62. Print "PRESS LEFT MOUSE BUTTON"
  63. Repeat 
  64. Until Extension_12_03B8